home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_015_19xx_-_de_Side_A.d64 / anl. sm coupon (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  86 lines
  1. 10 poke 53280,15:poke 53281,15:poke 646,0
  2. 20 print chr$(147);chr$(14);
  3. 30 print"       [200]inweise [211][205] [195]oupon [214]1.0          [146]"
  4. 40 print"[205]it diesem [208]rogramm lassen sich [195]oupons"
  5. 50 print"fuer [203]leinanzeigen in der [218]eitung"
  6. 60 print"'[211]perr[205]uell' ausdrucken."
  7. 70 print
  8. 80 print"[215]ichtig: [211]chreiben [211]ie bitte, bevor [211]ie"
  9. 90 print"anfangen zu arbeiten, [201]hre eigenen [196]aten";
  10. 100 print"in die [218]eilen 190, 200, 210, 1040 und"
  11. 110 print"1050. [211]peichern [211]ie diese [214]ersion ab und";
  12. 120 print"benutzen [211]ie diese in [218]ukunft."
  13. 130 print:print
  14. 140 print"       [197]rklaerung [205]enuepunkte:"
  15. 150 print
  16. 160 print"[ 1 ]  [196]aten neu eingeben:[144]"
  17. 170 print
  18. 180 print"[214]erlangt werden [210]ubrik-[206]ummer, [197]ntschei-";
  19. 190 print"dung [194]iete/[211]uche und der [193]nzeigentext."
  20. 200 print"[193]lte [196]aten werden automatisch geloescht.";
  21. 210 gosub 830
  22. 220 print chr$(147);
  23. 230 print"[ 2 ]  [196]aten laden:[144]"
  24. 240 print
  25. 250 print"[196]er [196]ateiname wird eingegeben, dann"
  26. 260 print"wird die [196]atei geladen und auf dem [194]ild-";
  27. 270 print"schirm angezeigt. [206]atuerlich muss die"
  28. 280 print"[196]atei auf der [196]iskette vorhanden sein."
  29. 290 print
  30. 300 print"[ 3 ]  [196]aten speichern:[144]"
  31. 310 print
  32. 320 print"[197]in [196]ateiname fuer den im [210]echner be-"
  33. 330 print"findlichen [212]ext wird eingegeben und die-";
  34. 340 print"se [196]atei auf [196]iskette gespeichert."
  35. 350 print"[199]leichlautende [196]ateien, die schon auf"
  36. 360 print"der [196]iskette sind, werden ueberschrie-"
  37. 370 print"ben."
  38. 380 print
  39. 390 print"[ 4 ]  [196]aten anzeigen:[144]"
  40. 400 print
  41. 410 print"[196]er aktuelle [212]ext wird angezeigt."
  42. 420 gosub 830
  43. 430 print chr$(147);
  44. 440 print"[ 5 ]  [196]aten korrigieren:[144]"
  45. 450 print
  46. 460 print"[196]er aktuelle [212]ext kann korrigiert wer-"
  47. 470 print"den (sonst nur einige [205]ale auf [210][197][212][213][210][206]"
  48. 480 print"druecken)."
  49. 490 print
  50. 500 print"[ 6 ]  [196]aten drucken:[144]"
  51. 510 print
  52. 520 print"[196]er aktuelle [212]ext wird als [211]perr[205]uell-"
  53. 530 print"[195]oupon gedruckt. [197]ntscheiden [211]ie sich"
  54. 540 print"entweder fuer einen [195]oupon mit [212]elefon-"
  55. 550 print"nummer oder mit [193]dresse, es gibt kein"
  56. 560 print"[197]ntrinnen! (hihi)
  57. 570 [153]
  58. 580 [153]"[ 7 ]  str$irectory:stop"
  59. 590 [153]
  60. 600 [153]"str$as right$nhaltsverzeichnis der str$iskette wird";
  61. 610 [153]"auf den peekildschirm ausgegeben."
  62. 620 [141] 830
  63. 630 [153] [199](147);
  64. 640 [153]"atnus den (NULL)enuepunkten 2 (laden) und 3"
  65. 650 [153]"(speichern) gelangt man durch str$ruck auf"
  66. 660 [153]"(NULL)val(NULL)(NULL)(NULL)(NULL) ins left$auptmenue zurueck."
  67. 670 [153]:[153]
  68. 680 [153]"(NULL)och ein (NULL)ort zum str$rucker: chr$etestet wur-";
  69. 690 [153]"de mit dem (NULL)tar (NULL)len-20 und einem (NULL)iese-"
  70. 700 [153]"mann-right$nterface. (NULL)omit duerfte das (NULL)ro-"
  71. 710 [153]"gramm mit nahezu jedem modernen valpson-"
  72. 720 [153]"kompatiblen str$rucker zusammenarbeiten."
  73. 730 [153]"peekei (NULL)roblemen hilft meistens schon, den"
  74. 740 [153]"str$ruckerkanal in (NULL)eile 800 mit"
  75. 750 [153]"(NULL)(NULL)val(NULL) 1,4,7 zu oeffnen."
  76. 760 [153]
  77. 770 [153]
  78. 780 [153]"    (NULL)iel (NULL)pass!!!"
  79. 790 [161] n$:[139] n$[178]"" [167] 790
  80. 800 [153] [199](147);
  81. 810 [128]
  82. 820 :
  83. 830 [153]"       peekitte eine (NULL)aste druecken        wait";
  84. 840 [161] n$:[139] n$[178]"" [167] 840
  85. 850 [142]
  86.